home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 July / 64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64 / cls-demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  523b  |  23 lines
  1. 10 rem ***********************
  2. 20 rem *                     *
  3. 30 rem * cls-demo 2 in basic *
  4. 40 rem *                     *
  5. 50 rem ***********************
  6. 60 rem variablen analog cls-demo 1
  7. 70 :
  8. 110 gosub 210:rem text auf bildschirm
  9. 120 fs=55296:sp=40:fe=fs+sp
  10. 130 fb=peek(53281)
  11. 140 :   for x=0 to 20
  12. 150 :        for y=0to24*40 step 40
  13. 160 :          poke fs+y+x,fb
  14. 170 :          poke fe+y-x,fb
  15. 180 :        next y
  16. 190 :   next x
  17. 200 end
  18. 210 :
  19. 220 rem "subroutine zum text schreiben"
  20. 230 for i=0to22
  21. 240 print"clear-screen-demo in basic 64'er 07 1992";:next
  22. 250 return
  23.